home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / MSDOS / PC Talk / PCTKREM.MRG < prev    next >
Text File  |  1983-03-26  |  4KB  |  138 lines
  1. 1 ' WARNING!!! DO NOT ALTER, BYPASS OR REMOVE LINES 1-100
  2. 2 '
  3. 3 ' PC-TALK III
  4. 4 '
  5. 5 ' by Andrew Fluegelman
  6. 6 ' The Headlands Press, Inc.
  7. 7 ' P.O. Box 862
  8. 8 ' Tiburon, CA 94920
  9. 9 '
  10. 10 ' ***************************  NOTICE  ***************************
  11. 11 ' *  A limited license is granted to all users of this program,  *
  12. 12 ' *  to make copies of this program and distribute them to other *
  13. 13 ' *  users, on the following conditions:                         *
  14. 14 ' *     1. The notices contained in lines 1 through 100 of the   *
  15. 15 ' *        program are not to be altered, bypassed, or removed.  *
  16. 16 ' *     2. The program is not to be distributed to others in     *
  17. 17 ' *        modified form.                                        *
  18. 18 ' *     3. No fee is to be charged (or any other consideration   *
  19. 19 ' *        received) for copying or distributing the program     *
  20. 20 ' *        without an express written agreement with             *
  21. 21 ' *        The Headlands Press, Inc., Box 862, Tiburon, CA 94920 *
  22. 22 ' *                                                              *
  23. 23 ' *                 Copyright (c) 1983 The Headlands Press, Inc. *
  24. 24 ' ****************************************************************
  25. 25 '
  26. 26 ' NOTE: This version requires 128K
  27. 100 ' Initialize Variables
  28. 105 '
  29. 200 ' Get Defaults
  30. 300 ' Start-up
  31. 305 '
  32. 350 PRINT TAB(45)"(REM version - requires 128K)
  33. 500 ' Main Input/Output
  34. 505 '
  35. 510 '-keyboard
  36. 600 '-comm port
  37. 700 '-check status
  38. 800 '-printer buffer
  39. 1000 ' Alt-Key Input
  40. 1005 '
  41. 1200 ' Alt-key Display
  42. 1205 '
  43. 1500 ' Extended Codes
  44. 1505 '
  45. 1565 '-F-keys/Alt-keys
  46. 1595 '-echo/message/print
  47. 1615 '-elapsed time/redial/screendump/defaults/exit
  48. 1645 '-logged drive/delete/clearsc/width alarm/menu/break
  49. 1681 '-more Extended Codes can go here (see p.G-6 IBM BASIC manual)
  50. 1682 '
  51. 1685 GOTO 515 'DON'T remove this line! (failsafe to return to terminal)
  52. 2000 ' Command Summary
  53. 2005 '
  54. 2450 '
  55. 2455 '
  56. 2500 '-return Q$ w/ max len QL
  57. 2555 '-convert Q$ to uppercase
  58. 2600 '-to/from line 25
  59. 2650 '-destructive backspace
  60. 2700 '-reopen files subrout
  61. 2800 '-clear menu line
  62. 3000 ' Receive File
  63. 3005 '
  64. 3200 ' Transmit File
  65. 3205 '
  66. 3400 ' View File
  67. 3405 '
  68. 3500 ' File Specs
  69. 3505 '
  70. 3620 '-file directory subrout
  71. 3800 ' Screendump
  72. 3805 '
  73. 3900 ' Delete File
  74. 3905 '
  75. 4000 ' Transmit
  76. 4005 '
  77. 4065 '-xon/xoff subrout
  78. 4200 '-transmit last block
  79. 4400 '-line pacing subrout
  80. 4500 ' Receive w/ XMODEM
  81. 4505 '
  82. 4540 '-check block
  83. 4630 '-terminate
  84. 4700 'Transmit with XMODEM
  85. 4705 '
  86. 4750 '-hold for ACK
  87. 4810 '-build block
  88. 4840 '-terminate
  89. 4900 ' XMODEM subroutines
  90. 4920 '-hold for SOH
  91. 4960 '-test for abort
  92. 4970 '-purge buffer
  93. 4980 '-set/check delay
  94. 5000 ' Comm Params
  95. 5005 '
  96. 5200 ' New Defaults
  97. 5205 '
  98. 5400 '-create default file
  99. 5600 '-update values
  100. 5800 '-default subrout
  101. 6000 ' Dialing Directory
  102. 6005 '
  103. 6025 '-write to screen
  104. 6080 '-initial choice
  105. 6200 '-dial entry
  106. 6300 '-manual dialing
  107. 6400 '-revise
  108. 6470 '-name & number
  109. 6500 '-comm params
  110. 6555 '-echo & messages
  111. 6590 '-strip chars
  112. 6650 '-pacing
  113. 6800 '-write new info
  114. 6825 '-modem$ & service$
  115. 6850 '-clear directory
  116. 6900 '-message area subrout
  117. 7000 ' Function Key Directory
  118. 7005 '
  119. 7100 '-proceed?
  120. 7200 '-revise
  121. 7275 '-new input string
  122. 7400 '-write new info
  123. 7420 '-create directory
  124. 7435 '-message area subrout
  125. 8000 ' Redial
  126. 8005 '
  127. 8200 ' Elapsed Time
  128. 8205 '
  129. 8900 ' Error Subrout
  130. 8905 '
  131. 9000 ' Error Traps
  132. 9005 '
  133. 9900 '-if not trapped
  134.  Redial
  135. 8005 '
  136. 8200 ' Elapsed Time
  137. 8205 '
  138. 8900 ' Error S